home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 50 / Digital_Talk_50_2001-08-13_Digital_Talk_de_Side_C.d64 / katzenlauf 5.kah (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  67 lines
  1. 1 q=peek(186):poke820,q:qa=peek(821):onqagoto4,8
  2. 2 rem---kht-bskatze05--210701---
  3. 3 b=53280:print"[147]":pokeb,0:pokeb+1,11:goto100
  4. 4 poke821,2:load"msbskatze05*",q,1
  5. 8 poke45,0:poke46,40:clr:goto110
  6. 61 cy=int(c/100):cx=c-(cy*100)
  7. 62 poke211,cx:poke214,cy:sys58640:return
  8. 68 lc=int(l/100):ll=l-(lc*100)
  9. 69 forx=lctoll:poke781,x:sys59903:next:return
  10. 100 gosub120:fori=0to1000:next
  11. 102 printtab(10)"[152]daten werden geladen"
  12. 104 printtab(14)"[144]bitte warten[152][145]":poke821,1:goto1
  13. 110 l=720:gosub68:c=2100:gosub61
  14. 112 printtab(10)"[144]weiter mit  <return>[152]"
  15. 114 r$="":getr$:on-(r$<>chr$(13))goto114:goto150
  16. 120 printtab(12)"[158]bildschirm-katze"
  17. 122 printtab(12)"[155]2001  von kahate":return
  18. 150 l=724:gosub68
  19. 210 z=rnd(-ti):z1=int(rnd(1)*2)
  20. 220 z2=int(rnd(1)*15)
  21. 230 ifz1>0andz2>11then220
  22. 240 poke822,z1:poke823,z2
  23. 250 poke824,109:poke825,112
  24. 300 sys7680:rem ---prgstart---
  25. 310 l=724:gosub68:i=0
  26. 410 r$="":getr$:ifr$=chr$(13)then150
  27. 420 ifr$="t"then500
  28. 430 ifr$="f"then600
  29. 440 ifr$=chr$(95)then990
  30. 450 i=i+1:on-(i=50)goto460
  31. 452 on-(i>=200)goto150:goto410
  32. 460 c=2100:gosub61
  33. 462 printtab(6)"[144]naechste katze mit  [152]<return>"
  34. 464 printtab(10)"[144]maximum 10 mal  oder"
  35. 466 printtab(10)"[155]t[144]empo  [155]f[144]arbe  [155]_[144]=ende[145][145][145]"
  36. 468 goto410
  37. 500 print"[147]":te$=""
  38. 510 printtab(10)"[152]bitte tempo eingeben"
  39. 512 printtab(10)"normales tempo  = 24"
  40. 514 printtab(10)"mehr     = langsamer"
  41. 516 printtab(10)"weniger  = schneller"
  42. 518 printtab(7)"[144]abschliessen mit  <return>"
  43. 520 printtab(12)"[155]eingabe:       [157][157][157][158]";
  44. 522 poke19,1:inputte$:poke19,0:print
  45. 524 te=val(te$):ifte=0then990
  46. 526 ifte<1orte>50then580
  47. 530 poke7694,te:print"[147]":gosub120:goto150
  48. 580 te$="":print"[145][145][145][145]":goto520
  49. 600 print"[147]":fa$=""
  50. 610 printtab(10)"[152]bitte farbe eingeben"
  51. 612 printtab(10)"normale  farbe  =  1"
  52. 614 printtab(10)"0 =schwarz  1 =weiss"
  53. 616 printtab(10)"2-15 = andere farben"
  54. 618 printtab(7)"[144]abschliessen mit  <return>"
  55. 620 printtab(12)"[155]eingabe:       [157][157][157][158]";
  56. 622 poke19,1:inputfa$:poke19,0:print
  57. 624 fa=val(fa$)
  58. 626 iffa<0orfa>15then680
  59. 630 poke7960,fa:print"[147]":gosub120:goto150
  60. 680 fa$="":print"[145][145][145][145]":goto620
  61. 990 poke198,0:poke821,0:print"[147][151]":z=0
  62. 992 r$="":getr$:on-(r$<>"")goto999
  63. 994 z=z+1:fori=0to100:next
  64. 996 ifz>=25thensys64738
  65. 998 goto992
  66. 999 print"[152]":end
  67.